home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
graphic
/
1svga.zip
/
SCREEN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-05-29
|
1KB
|
51 lines
{ Make VGA-Show Screen }
uses SVGA256,Txt;
{ ─────────────── PrtC ─────────────── }
procedure PrtC(Ty,X,Y,Color,Count:integer;St:string);
begin
Print(X+1,Y+1,0,St);
PrintColor(Ty,X,Y,Color,Count,St);
end;
{ ─────────────── Prt2 ─────────────── }
procedure Prt2(X,Y,Color:integer;St:string);
begin
Print(X+1,Y+1,0,St);
Print2(X,Y,Color,St);
end;
{ ─────────────── Screen ─────────────── }
procedure Screen;
var A:array[0..4999] of byte;
I,J:integer;
begin
FillChar(A,1000,1);
Randomize;
ColorRandom(40,25,148,2,1,A);
for J:=0 to 7 do for I:=0 to 7 do Put(40*I,25*J,40,25,A);
FileRead('2424bld.fnt',0,36,72,A);
InstallFont(1,24,24,55,36,24,A);
PrtC(1, 20,15,63,2,'JOU');
PrtC(1,105,15,63,2,'NAN');
PrtC(1,195,15,63,2,'CHEN');
FileRead('1616bld#.fnt',0,96,32,A);
InstallFont(2,16,16,32,96,16,A);
PrtC(1, 94,20,64,2,'-');
PrtC(1,30, 50,64,2,'Chen''s First Album');
PrtC(1,20,175,64,2,'(C) 1994 by Jou-Nan Chen');
FileRead('1212sim#.fnt',0,96,24,A);
InstallFont(2,16,12,32,96,16,A);
Prt2(30, 80,63,'Apply / Block / Color / Dirs / Fonts');
Prt2(30, 95,63,'GR_Demo / GR_Units / Hard / LookC');
Prt2(30,110,63,'Menu_Txt / MousTest / Palette / Part');
Prt2(30,125,63,'PM / PrintC / Resize / Screen / Show');
Prt2(30,140,63,'Sorts / VGATSR / VMode / Win_Text');
end;
begin
SetMode(1);
Screen;
Readln;
SetMode(0);
end.